home *** CD-ROM | disk | FTP | other *** search
/ NeXT Education Software Sampler 1992 Fall / NeXT Education Software Sampler 1992 Fall.iso / Programming / Source / Fitts / MenuItems.psw < prev    next >
Encoding:
Text File  |  1992-07-28  |  716 b   |  32 lines
  1. /* MenuItems.psw
  2.  *
  3.  * pswrap functions for the MenuView object
  4.  */
  5.  
  6. defineps menu_rect(float x, y, rect_height, rect_width)
  7.     newpath
  8.     x y moveto
  9.     0.0 rect_height neg rlineto
  10.     rect_width 0.0 rlineto
  11.     0.0 rect_height rlineto
  12.     closepath
  13. endps
  14.  
  15. defineps menu_pie(float x, y, ang, angle_covered, covered_radius, menu_radius)
  16.     newpath
  17.     x y covered_radius ang angle_covered arc
  18.     x y menu_radius angle_covered ang arcn
  19.     closepath
  20. endps
  21.  
  22. defineps menu_pie_rect(float x, y, menu_radius, angle, width, height)
  23.     newpath
  24.     x y menu_radius angle angle arc
  25.     width 2.0 div
  26.     height 2.0 div rmoveto
  27.     0.0 height neg rlineto
  28.     width 0.0 rlineto
  29.     0.0 height rlineto
  30.     closepath
  31. endps
  32.